home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / eiffel / smalleif.97 / se.t / SmallEiffel / bin_c / compile_to_c23.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-05-02  |  54.9 KB  |  1,792 lines
  1. /* ANSI C code generated by SmallEiffel. */
  2. /*
  3. -- SmallEiffel  -- Release (- 0.97)    --      FRANCE
  4. -- Copyright (C), 1994 - Dominique COLNET and Suzanne COLLIN 
  5. -- University Henri Poincare' - Nancy 1 - email colnet@loria.fr 
  6. -- CRIN (Centre de Recherche en Informatique de Nancy)
  7. -- FRANCE 
  8. */
  9. #include "compile_to_c.h"
  10. void main(int argc, char *argv[]) {initialize();{T26 *n=((T26*)new(26));
  11. int i;
  12. argument_count = argc - 1;
  13. argument = (T0 **)malloc(sizeof(Tstring *)*argc);
  14. for (i = 0; i < argc ; i++) 
  15. argument[i] = (T0 *)e2s(argv[i]);
  16. signal(SIGINT,sigrsp);
  17. signal(SIGQUIT,sigrsp);
  18. signal(SIGKILL,sigrsp);
  19. ms1=e2s("Error while writing character.");
  20. ms5=e2s("Bad use of command `compile_to_c\'.\n");
  21. ms14=e2s("SmallEiffel");
  22. ms17=e2s("C=a1;");
  23. ms18=e2s("memcpy(C,a1,s[C->id]);");
  24. ms20=e2s("/usr/local/logiciel/SmallEiffel");
  25. ms21=e2s("man");
  26. ms22=e2s(".hlp");
  27. ms24=e2s("Unable to find help file \"");
  28. ms25=e2s("\".\n");
  29. ms26=e2s("r");
  30. ms28=e2s("compile_to_c");
  31. ms29=e2s(".o");
  32. ms34=e2s(".c");
  33. ms35=e2s("-boost");
  34. ms36=e2s("compile: level is already set to ");
  35. ms37=e2s(". Bad flag ");
  36. ms38=e2s(".");
  37. ms39=e2s("****** ");
  38. ms40=e2s(" : ");
  39. ms43=e2s("Line ");
  40. ms44=e2s("0123456789001234567890");
  41. ms45=e2s("0123456789");
  42. ms46=e2s(" column ");
  43. ms47=e2s(" in ");
  44. ms48=e2s("Fatal Error");
  45. ms49=e2s("Internal Error #1 in SMALL_EIFFEL.");
  46. ms50=e2s("                                                    ");
  47. ms51=e2s(".e");
  48. ms52=e2s("loadpath.se");
  49. ms53=e2s("Cannot read file \"");
  50. ms54=e2s("\".\n");
  51. ms55=e2s("lib_std");
  52. ms56=e2s("lib_show");
  53. ms57=e2s("lib_test");
  54. ms58=e2s("                                                    ");
  55. ms59=e2s("rename.se");
  56. ms60=e2s("Multiple entry for \"");
  57. ms61=e2s("\" in \"rename.se\" files.\nClash for \n\"");
  58. ms62=e2s("\" and \n\"");
  59. ms63=e2s(".\n");
  60. ms66=e2s("Bad \"rename.se\" file.\nCannot open \"");
  61. ms67=e2s("\".");
  62. ms68=e2s("Unable to find file for class \"");
  63. ms69=e2s("\". ");
  64. ms70=e2s("\nLoading path is :\n");
  65. ms71=e2s("Environment Variable \"");
  66. ms72=e2s("\" is\n");
  67. ms73=e2s("not set. ");
  68. ms74=e2s("set to \"");
  69. ms75=e2s("\". ");
  70. ms76=e2s("Correct previous error(s) first.");
  71. ms77=e2s("Cannot read file : \"");
  72. ms78=e2s("\".");
  73. ms79=e2s("FOO");
  74. ms80=e2s("indexing");
  75. ms81=e2s("prefix");
  76. ms82=e2s("Warning");
  77. ms83=e2s("Character \'%\"\' inserted after \"prefix\".");
  78. ms84=e2s("not");
  79. ms85=e2s("***");
  80. ms86=e2s("+");
  81. ms87=e2s("-");
  82. ms88=e2s("Prefix operator name expected.");
  83. ms89=e2s("Character \'%\"\' inserted.");
  84. ms90=e2s("infix");
  85. ms91=e2s("Character \'%\"\' inserted after \"infix\".");
  86. ms92=e2s("<=");
  87. ms93=e2s(">=");
  88. ms94=e2s("//");
  89. ms95=e2s("\\\\");
  90. ms96=e2s("*");
  91. ms97=e2s("/");
  92. ms98=e2s(">");
  93. ms99=e2s("<");
  94. ms100=e2s("^");
  95. ms101=e2s("xor");
  96. ms102=e2s("implies");
  97. ms103=e2s("and");
  98. ms104=e2s("then");
  99. ms105=e2s("and then");
  100. ms106=e2s("or");
  101. ms107=e2s("else");
  102. ms108=e2s("or else");
  103. ms109=e2s("Infix operator name expected.");
  104. ms110=e2s("Character \'%\"\' inserted.");
  105. ms111=e2s("alias");
  106. ms112=e2s("all");
  107. ms113=e2s("as");
  108. ms114=e2s("check");
  109. ms115=e2s("class");
  110. ms116=e2s("creation");
  111. ms117=e2s("debug");
  112. ms118=e2s("deferred");
  113. ms119=e2s("do");
  114. ms120=e2s("elseif");
  115. ms121=e2s("end");
  116. ms122=e2s("ensure");
  117. ms123=e2s("expanded");
  118. ms124=e2s("export");
  119. ms125=e2s("external");
  120. ms126=e2s("false");
  121. ms127=e2s("feature");
  122. ms128=e2s("from");
  123. ms129=e2s("frozen");
  124. ms130=e2s("if");
  125. ms131=e2s("indexing");
  126. ms132=e2s("infix");
  127. ms133=e2s("inherit");
  128. ms134=e2s("inspect");
  129. ms135=e2s("invariant");
  130. ms136=e2s("is");
  131. ms137=e2s("like");
  132. ms138=e2s("local");
  133. ms139=e2s("loop");
  134. ms140=e2s("obsolete");
  135. ms141=e2s("old");
  136. ms142=e2s("once");
  137. ms143=e2s("prefix");
  138. ms144=e2s("redefine");
  139. ms145=e2s("rename");
  140. ms146=e2s("require");
  141. ms147=e2s("rescue");
  142. ms148=e2s("retry");
  143. ms149=e2s("select");
  144. ms150=e2s("separate");
  145. ms151=e2s("strip");
  146. ms152=e2s("then");
  147. ms153=e2s("true");
  148. ms154=e2s("undefine");
  149. ms155=e2s("unique");
  150. ms156=e2s("until");
  151. ms157=e2s("variant");
  152. ms158=e2s("when");
  153. ms159=e2s("Identifier must use only lowercase letters.");
  154. ms160=e2s("true");
  155. ms161=e2s("false");
  156. ms162=e2s("Bad character constant.");
  157. ms163=e2s("Unexpected character in ascii code.");
  158. ms164=e2s("Bad (empty ?) ascii code.");
  159. ms165=e2s("Three digit is enought for an ascii code.");
  160. ms166=e2s("Unknown special character.");
  161. ms167=e2s("Unexpected new line in manifest string.");
  162. ms168=e2s("Unknown special character.");
  163. ms169=e2s("In extended form of manifest string.Bad character after \'%\'.");
  164. ms170=e2s("In extended form of manifest string. Bad character before \'%\'.");
  165. ms171=e2s("Underscore in number must group 3 digits.");
  166. ms172=e2s("Underscore in fractionnal part must group 3 digits.");
  167. ms173=e2s("Exponent of a real value expected.");
  168. ms174=e2s("REAL_CONSTANT/nyi.");
  169. ms175=e2s("It is not an integer value.");
  170. ms176=e2s("Index value expected (\"indexing ...\").");
  171. ms177=e2s("deferred");
  172. ms178=e2s("A class cannot be expanded and deferred.");
  173. ms179=e2s("deferred");
  174. ms180=e2s("class");
  175. ms181=e2s("Keyword \"class\" expected.");
  176. ms182=e2s("Class name must use only uppercase letters.");
  177. ms183=e2s("ANY");
  178. ms184=e2s("GENERAL");
  179. ms185=e2s("NONE");
  180. ms186=e2s("POINTER");
  181. ms187=e2s("ARRAY");
  182. ms188=e2s("STRING");
  183. ms189=e2s("BOOLEAN");
  184. ms190=e2s("BOOLEAN_REF");
  185. ms191=e2s("CHARACTER");
  186. ms192=e2s("CHARACTER_REF");
  187. ms193=e2s("FIXED_ARRAY");
  188. ms194=e2s("INTEGER");
  189. ms195=e2s("INTEGER_REF");
  190. ms196=e2s("REAL");
  191. ms197=e2s("REAL_REF");
  192. ms198=e2s("DOUBLE");
  193. ms199=e2s("DOUBLE_REF");
  194. ms200=e2s("BIT");
  195. ms201=e2s("                                    ");
  196. ms202=e2s("Cannot write such a class.");
  197. ms203=e2s("Name of the current class expected.");
  198. ms204=e2s("like");
  199. ms205=e2s("Current");
  200. ms206=e2s("like ");
  201. ms207=e2s("like ");
  202. ms208=e2s("Anchor expected. An anchor could be `Current\', a feature name or an argument name.");
  203. ms209=e2s("expanded ");
  204. ms210=e2s("Must find a class type after \"expanded\".");
  205. ms211=e2s("Expected constant for BIT_N type declaration.");
  206. ms212=e2s("ARRAY[");
  207. ms213=e2s("Bad use of predefined type ARRAY.");
  208. ms214=e2s("Deleted extra coma.");
  209. ms215=e2s("Type mark expected.");
  210. ms216=e2s("Empty generic list (deleted).");
  211. ms217=e2s("Added \",\".");
  212. ms218=e2s("Bad generic list.");
  213. ms219=e2s("Constraint Class name expected.");
  214. ms220=e2s("Empty formal generic list (deleted).");
  215. ms221=e2s("Class name appears twice in formal generic list (VCFG-2).");
  216. ms222=e2s("obsolete");
  217. ms223=e2s("Manifest string expected for \"obsolete\" clause.");
  218. ms224=e2s("inherit");
  219. ms225=e2s("A class cannot inherit of herself.");
  220. ms226=e2s("You cannot inherit from \"");
  221. ms227=e2s("\" because it is not yet implemented (sorry).");
  222. ms228=e2s("rename");
  223. ms229=e2s("as");
  224. ms230=e2s("New name and old name should be different.");
  225. ms231=e2s("Second identifier of a \"rename\" pair expected.");
  226. ms232=e2s("Unexpected \";\" to end rename list.");
  227. ms233=e2s("export");
  228. ms234=e2s("Unexpected comma (deleted).");
  229. ms235=e2s("Unexpected bracket.");
  230. ms236=e2s("Bad clients list.");
  231. ms237=e2s("Same Class Name appears twice.");
  232. ms238=e2s("Deleted extra semi-colon.");
  233. ms239=e2s("all");
  234. ms240=e2s("Feature name expected.");
  235. ms241=e2s("Same feature name appears twice.");
  236. ms242=e2s("Added \";\".");
  237. ms243=e2s("undefine");
  238. ms244=e2s("redefine");
  239. ms245=e2s("select");
  240. ms246=e2s("rename");
  241. ms247=e2s("export");
  242. ms248=e2s("undefine");
  243. ms249=e2s("redefine");
  244. ms250=e2s("select");
  245. ms251=e2s("Inheritance option not at a good place. The good order is: \"rename... export... undefine... redefine... select...\".");
  246. ms252=e2s("Empty creation list (deleted).");
  247. ms253=e2s("feature");
  248. ms254=e2s("frozen");
  249. ms255=e2s("frozen");
  250. ms256=e2s("Frozen feature name synonym expected.");
  251. ms257=e2s("Synonym feature name expected.");
  252. ms258=e2s("Deleted extra separator.");
  253. ms259=e2s("Substitute with \";\".");
  254. ms260=e2s("Bad formal aguments list.");
  255. ms261=e2s("Empty formal argument list (deleted).");
  256. ms262=e2s("Circular anchored definition.");
  257. ms263=e2s("Type mark expected.");
  258. ms264=e2s("is");
  259. ms265=e2s("unique");
  260. ms266=e2s("Unique feature must have a result type.");
  261. ms267=e2s("Unique feature must have INTEGER type.");
  262. ms268=e2s("The type of this constant feature should be BOOLEAN.");
  263. ms269=e2s("The type of this constant feature should be CHARACTER.");
  264. ms270=e2s("The type of this constant feature should be STRING.");
  265. ms271=e2s("The type of this constant feature should be BIT.");
  266. ms272=e2s("REAL truncated to INTEGER");
  267. ms273=e2s("REAL_CONSTANT/nyi.");
  268. ms274=e2s("The type of this constant feature should be REAL.");
  269. ms275=e2s("This constant feature should have a result type (REAL).");
  270. ms276=e2s("INTEGER_CONSTANT/nyi.");
  271. ms277=e2s("The type of this constant feature should be INTEGER  or REAL.");
  272. ms278=e2s("This constant feature should have a result type (INTEGER).");
  273. ms279=e2s("obsolete");
  274. ms280=e2s("Obsolete manifest string expected.");
  275. ms281=e2s("require");
  276. ms282=e2s("End of manifest array expected.");
  277. ms283=e2s("Right hand side expression of \"");
  278. ms284=e2s("\" expected.");
  279. ms285=e2s("+ (prefix)");
  280. ms286=e2s("- (prefix)");
  281. ms287=e2s("Bad use of prefix operator. ");
  282. ms288=e2s("old");
  283. ms289=e2s("Expression \"old\" can be used in ensure clause only.");
  284. ms290=e2s("strip");
  285. ms291=e2s("\')\' expected to end a strip expression.");
  286. ms292=e2s("\'(\' expected to begin a strip list.");
  287. ms293=e2s("Result");
  288. ms294=e2s("`Result\' must only be used inside a function.");
  289. ms295=e2s("Void");
  290. ms296=e2s("This name must not appear after a dot.");
  291. ms297=e2s("Empty argument list (deleted).");
  292. ms298=e2s("\')\' expected to end arguments list.");
  293. ms299=e2s("Identifier expected after a dot.");
  294. ms300=e2s("An expression has a result value. This is not an instruction.");
  295. ms301=e2s("\')\' expected in expression.");
  296. ms302=e2s("Expression expected.");
  297. ms303=e2s("Added brackets for manifest constant before dot.");
  298. ms304=e2s("Expression expected after \"old\".");
  299. ms305=e2s("Syntax Error.");
  300. ms306=e2s("^");
  301. ms307=e2s("^");
  302. ms308=e2s("*");
  303. ms309=e2s("*");
  304. ms310=e2s("//");
  305. ms311=e2s("//");
  306. ms312=e2s("\\\\");
  307. ms313=e2s("\\\\");
  308. ms314=e2s("=");
  309. ms315=e2s("=");
  310. ms316=e2s("/=");
  311. ms317=e2s("/=");
  312. ms318=e2s("<=");
  313. ms319=e2s("<=");
  314. ms320=e2s(">=");
  315. ms321=e2s(">=");
  316. ms322=e2s("<");
  317. ms323=e2s("<");
  318. ms324=e2s(">");
  319. ms325=e2s(">");
  320. ms326=e2s("Expression expected after \'implies\'.");
  321. ms327=e2s("local");
  322. ms328=e2s("Same identifier appears twice (local/formal).");
  323. ms329=e2s("Substitute with \",\".");
  324. ms330=e2s("Same identifier appears twice (local/formal).");
  325. ms331=e2s("Substitute with \";\".");
  326. ms332=e2s("Bad local variable list.");
  327. ms333=e2s("deferred");
  328. ms334=e2s("external");
  329. ms335=e2s("External langage name expected.");
  330. ms336=e2s("CSE");
  331. ms337=e2s("CWC");
  332. ms338=e2s("C");
  333. ms339=e2s("Interface with langage \"");
  334. ms340=e2s("\" not yet implemented.");
  335. ms341=e2s("alias");
  336. ms342=e2s("Alias name of external expected.");
  337. ms343=e2s("do");
  338. ms344=e2s("Empty check instruction removed.");
  339. ms345=e2s("Keyword \"end\" expected at the end of check clause.");
  340. ms346=e2s("debug");
  341. ms347=e2s("Empty debug key list (deleted).");
  342. ms348=e2s("\")\" expected to end debug string list.");
  343. ms349=e2s("In compound (");
  344. ms350=e2s("). Instruction or keyword \"");
  345. ms351=e2s("\" expected.");
  346. ms352=e2s("debug");
  347. ms353=e2s("if");
  348. ms354=e2s("Added \"then\".");
  349. ms355=e2s("then part");
  350. ms356=e2s("In \"if ... then ...\".");
  351. ms357=e2s("elseif");
  352. ms358=e2s("In \"elseif ... then ...\".");
  353. ms359=e2s("else part");
  354. ms360=e2s("Keyword \"end\".");
  355. ms361=e2s("retry");
  356. ms362=e2s("\"retry\" cannot be outside of a rescue clause.");
  357. ms363=e2s("inspect");
  358. ms364=e2s("Expression expected (\"inspect ... \").");
  359. ms365=e2s("when");
  360. ms366=e2s("when item");
  361. ms367=e2s("Error in inspect.");
  362. ms368=e2s("when item");
  363. ms369=e2s("when item");
  364. ms370=e2s("else of inspect");
  365. ms371=e2s("Added \"end\" for inspect instruction.");
  366. ms372=e2s("from");
  367. ms373=e2s("from part of a loop");
  368. ms374=e2s("invariant");
  369. ms375=e2s("variant");
  370. ms376=e2s("Variant (INTEGER) Expression Expected.");
  371. ms377=e2s("until");
  372. ms378=e2s("Boolean expression expected (until).");
  373. ms379=e2s("Keyword \"until\" expected (in a loop).");
  374. ms380=e2s("loop");
  375. ms381=e2s("Keyword \"loop\" expected (in a loop).");
  376. ms382=e2s("loop body");
  377. ms383=e2s("Explicit creation type mark must not be anchored.");
  378. ms384=e2s("Bad creation (type or \'!\' expected).");
  379. ms385=e2s("Bad creation (\'!\' expected).");
  380. ms386=e2s("Current is not a writable variable.");
  381. ms387=e2s("A formal argument is not a writable variable.");
  382. ms388=e2s("Bad creation (writable expected).");
  383. ms389=e2s("Bad creation (procedure name expected).");
  384. ms390=e2s("\')\' expected.");
  385. ms391=e2s("Must not affect `Current\'.");
  386. ms392=e2s("Must not affect `Void\'.");
  387. ms393=e2s("Must not affect a formal argument.");
  388. ms394=e2s("`Result\' must only be used inside a function.");
  389. ms395=e2s("Right hand side expression expected for assignment.");
  390. ms396=e2s("routine body");
  391. ms397=e2s("once");
  392. ms398=e2s("once routine body");
  393. ms399=e2s("Routine body expected.");
  394. ms400=e2s("ensure");
  395. ms401=e2s("rescue");
  396. ms402=e2s("Deferred feature must not have rescue compound.");
  397. ms403=e2s("rescue");
  398. ms404=e2s("A routine must be ended with \"end\".");
  399. ms405=e2s("Bad feature definition.");
  400. ms406=e2s("Attribute must not have formal arguments.");
  401. ms407=e2s("invariant");
  402. ms408=e2s("End of text expected.");
  403. ms409=e2s("Must not put important comment after end of a class.");
  404. ms410=e2s("Keyword \"end\" expected at the end of a class.");
  405. ms411=e2s("*** ");
  406. ms412=e2s(" error(s). ");
  407. ms413=e2s("Load class \"");
  408. ms414=e2s("\" aborted.\n");
  409. ms415=e2s("*** ");
  410. ms416=e2s(" warning(s).\n");
  411. ms417=e2s("Internal Error #1 in POSITION.");
  412. ms418=e2s("Internal Error #2 in POSITION.");
  413. ms419=e2s("Double definition of feature ");
  414. ms420=e2s("Feature not found in corresponding parent.");
  415. ms421=e2s("Feature not found in corresponding parent.");
  416. ms422=e2s("Redefinition not found.");
  417. ms423=e2s("Parent have not this feature.");
  418. ms424=e2s("Cannot redefine unexistant feature (VDRS.1).");
  419. ms425=e2s("Unable to load class.");
  420. ms426=e2s("File \"");
  421. ms427=e2s(" does not contains class \"");
  422. ms428=e2s("\".");
  423. ms429=e2s(" (");
  424. ms430=e2s(" :\n");
  425. ms431=e2s("^\n");
  426. ms432=e2s("SmallEiffel cannot load base class : ");
  427. ms433=e2s("\n");
  428. ms434=e2s("------\n");
  429. ms435=e2s("Error");
  430. ms436=e2s("****** Too many errors (");
  431. ms437=e2s(").\n");
  432. ms438=e2s("-no_check");
  433. ms439=e2s("-require_check");
  434. ms440=e2s("-ensure_check");
  435. ms441=e2s("-invariant_check");
  436. ms442=e2s("-loop_check");
  437. ms443=e2s("-all_check");
  438. ms444=e2s("-debug_check");
  439. ms445=e2s("-no_strip");
  440. ms446=e2s("-cc");
  441. ms447=e2s("-l");
  442. ms448=e2s("-o");
  443. ms449=e2s("compile: flag \"-o\" appear twice.");
  444. ms450=e2s("-- SmallEiffel  -- Release (- 0.97)    --      FRANCE\n-- Copyright (C), 1994 - Dominique COLNET and Suzanne COLLIN \n-- University Henri Poincare\' - Nancy 1 - email colnet@loria.fr \n-- CRIN (Centre de Recherche en Informatique de Nancy)\n-- FRANCE \n");
  445. ms451=e2s("Parsing :\n");
  446. ms452=e2s("Cannot find class.");
  447. ms453=e2s("Cannot load class.");
  448. ms454=e2s("Cannot load root class ");
  449. ms455=e2s(" cannot be a root class since it is a generic class.");
  450. ms456=e2s(" cannot be a root class since it is a deferred class.");
  451. ms457=e2s("make");
  452. ms458=e2s("class ");
  453. ms459=e2s(" (file ");
  454. ms460=e2s(")");
  455. ms461=e2s(" has no creation clause.");
  456. ms462=e2s(" (");
  457. ms463=e2s("line ");
  458. ms464=e2s(", column ");
  459. ms465=e2s(" in ");
  460. ms466=e2s(")");
  461. ms467=e2s(" does not belong to a creation clause of ");
  462. ms468=e2s("Cyclic inheritance graph. Start from ");
  463. ms469=e2s(". Loop in ");
  464. ms470=e2s(" is not allowed to use feature.");
  465. ms471=e2s("Creation Call not allowed.");
  466. ms472=e2s(" is not a Valid Root.");
  467. ms473=e2s("foo :-)");
  468. ms474=e2s(" has no feature ");
  469. ms475=e2s(". Invalid Root.");
  470. ms476=e2s("Class Not found.");
  471. ms477=e2s("Bad Assertion.");
  472. ms478=e2s("Type ");
  473. ms479=e2s(" is not BOOLEAN.");
  474. ms480=e2s("BASE_CLASS / does_not_understand.");
  475. ms481=e2s("Cannot load base class for ");
  476. ms482=e2s("A frozen feature must not be undefined (VDUS).");
  477. ms483=e2s("Problem with undefine of \"");
  478. ms484=e2s("\" in \"");
  479. ms485=e2s("\".");
  480. ms486=e2s("It is not a feature of the parent.");
  481. ms487=e2s("Multiple select for feature ");
  482. ms488=e2s("One has Result but not the other.");
  483. ms489=e2s("One has argument(s) but not the other.");
  484. ms490=e2s("Incompatible number of arguments.");
  485. ms491=e2s(" Cannot merge thoses features.");
  486. ms492=e2s("Bad number of arguments.");
  487. ms493=e2s("Incompatible types in ");
  488. ms494=e2s(" Cannot merge thoses features.");
  489. ms495=e2s("Incompatible headings.");
  490. ms496=e2s("Incompatible headings.");
  491. ms497=e2s("Incompatible headings.");
  492. ms498=e2s("NOT YET IMPLEMENTED or inheritance clash ?");
  493. ms499=e2s("Constant feature cannot be redefined.");
  494. ms500=e2s("Cannot redefine a frozen feature.");
  495. ms501=e2s("One has Result but not the other.");
  496. ms502=e2s("One has argument(s) but not the other.");
  497. ms503=e2s("Incompatible number of arguments.");
  498. ms504=e2s(" Cannot inherit thoses features in ");
  499. ms505=e2s(".");
  500. ms506=e2s(" Cannot inherit thoses features in ");
  501. ms507=e2s(".");
  502. ms508=e2s("Incompatible headings for redefinition.");
  503. ms509=e2s("Invalid redefinition in ");
  504. ms510=e2s(". Missing redefine ?");
  505. ms511=e2s("Invalid Root (not a procedure).");
  506. ms512=e2s("Creation procedure ");
  507. ms513=e2s(" must not have arguments.");
  508. ms514=e2s("Bad declaration.");
  509. ms515=e2s("Bad instruction (when interpreted in ");
  510. ms516=e2s(").");
  511. ms517=e2s("There is no feature ");
  512. ms518=e2s(" in class ");
  513. ms519=e2s("Internal Error #1 in RUN_CLASS.");
  514. ms520=e2s("print");
  515. ms521=e2s("SMALL_EIFFEL/error handler not empty.\n");
  516. ms522=e2s("Starting Falling Down (approx. ");
  517. ms523=e2s(" features).\n");
  518. ms524=e2s("End of Falling Down (approx. ");
  519. ms525=e2s(" features).\n");
  520. ms526=e2s("Base class parsed : ");
  521. ms527=e2s("w");
  522. ms528=e2s("Cannot write in file \"");
  523. ms529=e2s("\".\n");
  524. ms530=e2s("No <root class>.");
  525. ms531=e2s(".h");
  526. ms532=e2s(".c");
  527. ms533=e2s("/* ANSI C code generated by SmallEiffel. */\n/*\n");
  528. ms534=e2s("*/\n");
  529. ms535=e2s("#include \"");
  530. ms536=e2s("\"\n");
  531. ms537=e2s("<math.h>");
  532. ms538=e2s("-lm");
  533. ms539=e2s("#include ");
  534. ms540=e2s("\n");
  535. ms541=e2s("<stdio.h>");
  536. ms542=e2s("<stdlib.h>");
  537. ms543=e2s("<signal.h>");
  538. ms544=e2s("<stddef.h>");
  539. ms545=e2s("typedef struct sT0 T0;");
  540. ms546=e2s("struct sT0\173""int id;\175"";");
  541. ms547=e2s("typedef struct sTstring Tstring;");
  542. ms548=e2s("struct sTstring\173""int id;int _capacity;int _count;char *_storage;\175"";");
  543. ms549=e2s("typedef struct sTarray Tarray;");
  544. ms550=e2s("struct sTarray\173""int id;int _capacity;int _lower;");
  545. ms551=e2s("int _upper;T0 **_storage;\175"";");
  546. ms552=e2s(";\n");
  547. ms553=e2s("\173""\n");
  548. ms554=e2s("\175""\n");
  549. ms555=e2s("T0 *new(int id)");
  550. ms556=e2s("int sz=s[id];");
  551. ms557=e2s("T0 *n=malloc(sz);");
  552. ms558=e2s("memset(n,0,sz);");
  553. ms559=e2s("n->id=id;");
  554. ms560=e2s("return n;");
  555. ms561=e2s("#define T");
  556. ms562=e2s(" T");
  557. ms563=e2s("general");
  558. ms564=e2s("#define ");
  559. ms565=e2s("Id ");
  560. ms566=e2s("general");
  561. ms567=e2s("integer");
  562. ms568=e2s("character");
  563. ms569=e2s("boolean");
  564. ms570=e2s("real");
  565. ms571=e2s("double");
  566. ms572=e2s("string");
  567. ms573=e2s("pointer");
  568. ms574=e2s("expanded");
  569. ms575=e2s("reference");
  570. ms576=e2s("link");
  571. ms577=e2s("featureTag");
  572. ms578=e2s("name");
  573. ms579=e2s("column");
  574. ms580=e2s("line");
  575. ms581=e2s("path");
  576. ms582=e2s("doingWhat");
  577. ms583=e2s("doingInvariant");
  578. ms584=e2s("char ");
  579. ms585=e2s("[]=\"");
  580. ms586=e2s("\";\n");
  581. ms587=e2s("extern char ");
  582. ms588=e2s("[];\n");
  583. ms589=e2s("tag_pos_1");
  584. ms590=e2s("assignment");
  585. ms591=e2s("tag_pos_2");
  586. ms592=e2s("boolean exp.");
  587. ms593=e2s("tag_pos_3");
  588. ms594=e2s("instruction");
  589. ms595=e2s("tag_pos_4");
  590. ms596=e2s("assertion");
  591. ms597=e2s("tag_pos_5");
  592. ms598=e2s("creation call");
  593. ms599=e2s("tag_pos_6");
  594. ms600=e2s("variant exp.");
  595. ms601=e2s("extern ");
  596. ms602=e2s(";\n");
  597. ms603=e2s(";\n");
  598. ms604=e2s("void **rs_bot");
  599. ms605=e2s("void **rs");
  600. ms606=e2s("void **rs_lb");
  601. ms607=e2s("void **rs_top");
  602. ms608=e2s("void rs_need(int size)");
  603. ms609=e2s("if (rs+size < rs_top) return;");
  604. ms610=e2s("printf(\"Stack must grow.\\n\");");
  605. ms611=e2s("if ((rs_top-rs_bot)>262144) \173""");
  606. ms612=e2s("error0(\"Stack Overflow.\");\175""");
  607. ms613=e2s("\173""int new_size=(rs_top-rs_bot+1)*2;");
  608. ms614=e2s("void **new_rs_bot=(void **)realloc(rs_bot,new_size*sizeof(void **));");
  609. ms615=e2s("printf(\"New size for stack is %d\\n\",new_size);");
  610. ms616=e2s("if (new_rs_bot==rs_bot) \173""");
  611. ms617=e2s("rs_top=rs_bot+new_size-1;");
  612. ms618=e2s("return;\175""");
  613. ms619=e2s("if (new_rs_bot==NULL) error0(\"Stack Overflow.\");");
  614. ms620=e2s("rs_top=new_rs_bot+new_size-1;");
  615. ms621=e2s("rs=new_rs_bot+(rs-rs_bot);");
  616. ms622=e2s("rs_lb=new_rs_bot+(rs_lb-rs_bot);");
  617. ms623=e2s("rs_bot=new_rs_bot;\175""");
  618. ms624=e2s("void rs_link(char *tag)");
  619. ms625=e2s("rs_need(4);");
  620. ms626=e2s("*rs++=(void *)linkId;");
  621. ms627=e2s("*rs=(void *)(rs-rs_lb);");
  622. ms628=e2s("rs_lb=rs++;");
  623. ms629=e2s("*rs++=(void *)featureTagId;");
  624. ms630=e2s("*rs++=(void *)tag;");
  625. ms631=e2s("void rs_unlink(void)");
  626. ms632=e2s("rs=rs_lb-1;");
  627. ms633=e2s("rs_lb=rs_lb-(int)(*rs_lb);");
  628. ms634=e2s("void rs_pPOS(char* tp,int l,int c,int f)");
  629. ms635=e2s("rs_need(8);");
  630. ms636=e2s("*rs++=(void *)lineId;");
  631. ms637=e2s("*rs++=(void *)l;");
  632. ms638=e2s("*rs++=(void *)columnId;");
  633. ms639=e2s("*rs++=(void *)c;");
  634. ms640=e2s("*rs++=(void *)pathId;");
  635. ms641=e2s("*rs++=(void *)f;");
  636. ms642=e2s("*rs++=(void *)doingWhatId;");
  637. ms643=e2s("*rs++=(void *)tp;");
  638. ms644=e2s("int rs_pop_int(int e)");
  639. ms645=e2s("rs-=8;");
  640. ms646=e2s("return e;");
  641. ms647=e2s("void rs_pINT(int *i,char *n)");
  642. ms648=e2s("rs_need(4);");
  643. ms649=e2s("*rs++=(void *)nameId;");
  644. ms650=e2s("*rs++=(void *)n;");
  645. ms651=e2s("*rs++=(void *)integerId;");
  646. ms652=e2s("*rs++=(void *)i;");
  647. ms653=e2s("void rs_pCHA(char *c,char *n)");
  648. ms654=e2s("rs_need(4);");
  649. ms655=e2s("*rs++=(void *)nameId;");
  650. ms656=e2s("*rs++=(void *)n;");
  651. ms657=e2s("*rs++=(void *)characterId;");
  652. ms658=e2s("*rs++=(void *)c;");
  653. ms659=e2s("void rs_pBOO(int *b,char *n)");
  654. ms660=e2s("rs_need(4);");
  655. ms661=e2s("*rs++=(void *)nameId;");
  656. ms662=e2s("*rs++=(void *)n;");
  657. ms663=e2s("*rs++=(void *)booleanId;");
  658. ms664=e2s("*rs++=(void *)b;");
  659. ms665=e2s("void rs_pREA(float *r,char *n)");
  660. ms666=e2s("rs_need(4);");
  661. ms667=e2s("*rs++=(void *)nameId;");
  662. ms668=e2s("*rs++=(void *)n;");
  663. ms669=e2s("*rs++=(void *)realId;");
  664. ms670=e2s("*rs++=(void *)r;");
  665. ms671=e2s("void rs_pDOU(double *d,char *n)");
  666. ms672=e2s("rs_need(4);");
  667. ms673=e2s("*rs++=(void *)nameId;");
  668. ms674=e2s("*rs++=(void *)n;");
  669. ms675=e2s("*rs++=(void *)doubleId;");
  670. ms676=e2s("*rs++=(void *)d;");
  671. ms677=e2s("void rs_pREF(void **r,char *n)");
  672. ms678=e2s("rs_need(4);");
  673. ms679=e2s("*rs++=(void *)nameId;");
  674. ms680=e2s("*rs++=(void *)n;");
  675. ms681=e2s("*rs++=(void *)referenceId;");
  676. ms682=e2s("*rs++=(void *)r;");
  677. ms683=e2s("void rs_pEXP(void *e,char *n)");
  678. ms684=e2s("rs_need(4);");
  679. ms685=e2s("*rs++=(void *)nameId;");
  680. ms686=e2s("*rs++=(void *)n;");
  681. ms687=e2s("*rs++=(void *)expandedId;");
  682. ms688=e2s("*rs++=(void *)e;");
  683. ms689=e2s("int req_last_chance");
  684. ms690=e2s("int req_last_result");
  685. ms691=e2s("extern ");
  686. ms692=e2s(";\n");
  687. ms693=e2s(";\n");
  688. ms694=e2s("int af_req");
  689. ms695=e2s("void ac_req(int v)");
  690. ms696=e2s("if (!v && req_last_chance)");
  691. ms697=e2s("error0(\"Require Assertion Violated.\");");
  692. ms698=e2s("req_last_result=req_last_result&&v;");
  693. ms699=e2s("rs-=8;");
  694. ms700=e2s("#define AF_");
  695. ms701=e2s("REQ_1 af_req=1;");
  696. ms702=e2s("REQ_0 af_req=0;");
  697. ms703=e2s("REQ_1 ");
  698. ms704=e2s("REQ_0 ");
  699. ms705=e2s("int af_ens");
  700. ms706=e2s("void ac_ens(int v)");
  701. ms707=e2s("if (!v) error0(\"Ensure Assertion Violated.\");");
  702. ms708=e2s("rs-=8;");
  703. ms709=e2s("ENS_1 af_ens=1;");
  704. ms710=e2s("ENS_0 af_ens=0;");
  705. ms711=e2s("ENS_1 ");
  706. ms712=e2s("ENS_0 ");
  707. ms713=e2s("int af_inv");
  708. ms714=e2s("void ac_inv(int v)");
  709. ms715=e2s("if (!v) error0(\"Class Invariant Violation.\");");
  710. ms716=e2s("rs-=8;");
  711. ms717=e2s("INV_1 af_inv=1;");
  712. ms718=e2s("INV_0 af_inv=0;");
  713. ms719=e2s("INV_1 ");
  714. ms720=e2s("INV_0 ");
  715. ms721=e2s("int af_liv");
  716. ms722=e2s("void ac_liv(int v)");
  717. ms723=e2s("if (!v) error0(\"Loop Invariant Violation.\");");
  718. ms724=e2s("rs-=8;");
  719. ms725=e2s("int lvc(int lc,int lv1,int lv2)");
  720. ms726=e2s("if (lc==0)\173""if (lv2 < 0)\173""");
  721. ms727=e2s("rsp();");
  722. ms728=e2s("printf(\"Bad First Variant Value = %d\\n\",lv2);\175""");
  723. ms729=e2s("else \173""rs-=8;return lv2;\175""\175""");
  724. ms730=e2s("else if ((lv2 < 0)\174""\174""(lv2 >= lv1))\173""");
  725. ms731=e2s("rsp();");
  726. ms732=e2s("printf(\"Loop Body Count = %d (done)\\nNew Variant = %d\\nPrevious Variant = %d\\n\",lc,lv2,lv1);\175""");
  727. ms733=e2s("else \173""rs-=8;return lv2;\175""");
  728. ms734=e2s("printf(\"*** Error at Run Time *** : Bad Loop Variant.\\n\");");
  729. ms735=e2s("exit(1);");
  730. ms736=e2s("LIV_1 af_liv=1;");
  731. ms737=e2s("LIV_0 af_liv=0;");
  732. ms738=e2s("LIV_1 ");
  733. ms739=e2s("LIV_0 ");
  734. ms740=e2s("int af_civ");
  735. ms741=e2s("void ac_civ(int v)");
  736. ms742=e2s("if (!v) error0(\"Check Assertion Violated.\");");
  737. ms743=e2s("rs-=8;");
  738. ms744=e2s("CIV_1 af_civ=1;");
  739. ms745=e2s("CIV_0 af_civ=0;");
  740. ms746=e2s("CIV_1 ");
  741. ms747=e2s("CIV_0 ");
  742. ms748=e2s("1 AF_CIV_1 AF_LIV_1 AF_INV_1 AF_ENS_1 AF_REQ_1");
  743. ms749=e2s("0 AF_CIV_0 AF_LIV_0 AF_INV_0 AF_ENS_0 AF_REQ_0");
  744. ms750=e2s("Define Users\'s C Macro.\n");
  745. ms751=e2s("/* User\'s Macro-Definitions : */\n");
  746. ms752=e2s("/* User\'s Macro End */\n");
  747. ms753=e2s(".\n");
  748. ms754=e2s("Compiling to C Types :\n");
  749. ms755=e2s("typedef struct sT");
  750. ms756=e2s(" T");
  751. ms757=e2s(";\n");
  752. ms758=e2s("Total Types defined : ");
  753. ms759=e2s(".\n");
  754. ms760=e2s("Types really used (object created): ");
  755. ms761=e2s(".\n");
  756. ms762=e2s("struct sT");
  757. ms763=e2s("int id;");
  758. ms764=e2s("T0*");
  759. ms765=e2s(" _");
  760. ms766=e2s("\175"";\n");
  761. ms767=e2s("Compiling routines for :\n");
  762. ms768=e2s("T");
  763. ms769=e2s(" *ivT");
  764. ms770=e2s("(T");
  765. ms771=e2s(" *C)");
  766. ms772=e2s("*rs++=(void *)doingInvariantId;*rs++=(void *)p[");
  767. ms773=e2s("];\n");
  768. ms774=e2s("inv");
  769. ms775=e2s("if (!af_");
  770. ms776=e2s(")\173""af_");
  771. ms777=e2s("=1;\n");
  772. ms778=e2s("rs_pPOS(tag_pos_");
  773. ms779=e2s("0,0,0");
  774. ms780=e2s(";\n");
  775. ms781=e2s("ac_");
  776. ms782=e2s(");\n");
  777. ms783=e2s("af_");
  778. ms784=e2s("=0;\175""\n");
  779. ms785=e2s("rs-=2;return C;\175""\n");
  780. ms786=e2s("Define Cecil for : ");
  781. ms787=e2s("/* Cecil prototypes : */\n");
  782. ms788=e2s("T0 *");
  783. ms789=e2s("void ");
  784. ms790=e2s("void *");
  785. ms791=e2s("void *");
  786. ms792=e2s(" not created.");
  787. ms793=e2s("Empty Cecil function ");
  788. ms794=e2s(".");
  789. ms795=e2s("return ");
  790. ms797=e2s("rT");
  791. ms798=e2s("_ix");
  792. ms799=e2s("_px");
  793. ms800=e2s("(T");
  794. ms801=e2s(",a");
  795. ms802=e2s(";\n");
  796. ms803=e2s("\175""\n");
  797. ms804=e2s(", ");
  798. ms805=e2s("/* Cecil End */\n");
  799. ms806=e2s(".\n");
  800. ms807=e2s("Define main function.\n");
  801. ms808=e2s("int argument_count");
  802. ms809=e2s("T0 **argument");
  803. ms810=e2s("void main(");
  804. ms811=e2s("int argc, char *argv[]");
  805. ms812=e2s(") \173""initialize();\173""T");
  806. ms813=e2s(" *n=");
  807. ms814=e2s("((T");
  808. ms815=e2s("*)new(");
  809. ms816=e2s("))");
  810. ms817=e2s(";\n");
  811. ms818=e2s("int i;");
  812. ms819=e2s("argument_count = argc - 1;");
  813. ms820=e2s("argument = (T0 **)malloc(sizeof(Tstring *)*argc);");
  814. ms821=e2s("for (i = 0; i < argc ; i++) ");
  815. ms822=e2s("argument[i] = (T0 *)e2s(argv[i]);");
  816. ms823=e2s("signal(SIGINT,sigrsp);\n");
  817. ms824=e2s("signal(SIGQUIT,sigrsp);\n");
  818. ms825=e2s("signal(SIGKILL,sigrsp);\n");
  819. ms826=e2s("ms");
  820. ms827=e2s("=e2s(");
  821. ms828=e2s("\\n");
  822. ms829=e2s("\\\\");
  823. ms830=e2s("\\\"");
  824. ms831=e2s("\\\'");
  825. ms832=e2s("0000000000000000000");
  826. ms833=e2s("STRING.to_integer: \"");
  827. ms834=e2s("\" is not an INTEGER.\n");
  828. ms835=e2s("\"\"");
  829. ms836=e2s(");\n");
  830. ms837=e2s("#define rs_init_size 16384");
  831. ms838=e2s("rs=rs_bot=(void **)malloc(rs_init_size*sizeof(void **));");
  832. ms839=e2s("rs_top=rs_bot+rs_init_size-1;");
  833. ms840=e2s("rs_lb=NULL;");
  834. ms841=e2s("n");
  835. ms842=e2s("Pre-Computed Once Function(s) :");
  836. ms843=e2s("\173""T0 *R;\n");
  837. ms844=e2s("oR");
  838. ms845=e2s("=R;\175""/*PCO*/\n");
  839. ms846=e2s("\nTotal: ");
  840. ms847=e2s("ivT");
  841. ms848=e2s("(n);\n");
  842. ms849=e2s("if (rs != rs_bot)\173""");
  843. ms850=e2s("printf(\"\\n***Internal SmallEiffel Stack Error.\\n\");");
  844. ms851=e2s("rsp();\175""");
  845. ms852=e2s("exit(0);\175""\175""\n");
  846. ms853=e2s("Order of includes : ");
  847. ms854=e2s(".\n");
  848. ms855=e2s("Define used basics.\n");
  849. ms856=e2s("<string.h>");
  850. ms857=e2s("char *s2e(Tstring *s)");
  851. ms858=e2s("char *e = (char *)malloc((s->_count)+1);");
  852. ms859=e2s("memcpy(e,s->_storage,s->_count);");
  853. ms860=e2s("e[s->_count] = \'\\0\';");
  854. ms861=e2s("return e;");
  855. ms862=e2s("Tstring *e2s(char *e)");
  856. ms863=e2s("Tstring *s = (Tstring *)new(stringId);");
  857. ms864=e2s("if (e != NULL) \173""");
  858. ms865=e2s("s->_capacity = strlen(e) + 1;");
  859. ms866=e2s("s->_count = (s->_capacity) - 1;");
  860. ms867=e2s("s->_storage = (char *)malloc(sizeof(char)*s->_capacity);");
  861. ms868=e2s("strcpy(s->_storage,e);\175""");
  862. ms869=e2s("return s;");
  863. ms870=e2s("<stdarg.h>");
  864. ms871=e2s("T0 *ma(int aid,int eid,int argc,...)");
  865. ms872=e2s("va_list pa;");
  866. ms873=e2s("Tarray *a=((Tarray *)new(aid));");
  867. ms874=e2s("char *store=0;");
  868. ms875=e2s("a->_capacity=argc;");
  869. ms876=e2s("a->_lower=1;");
  870. ms877=e2s("a->_upper=argc;");
  871. ms878=e2s("a->_storage=0;");
  872. ms879=e2s("if (argc) \173""va_start(pa,argc);");
  873. ms880=e2s("if (eid) store=(char *)malloc(argc*(s[eid]));");
  874. ms881=e2s("else store=(char *)malloc(argc*(sizeof(T0*)));");
  875. ms882=e2s("a->_storage=(T0 **)store;");
  876. ms883=e2s("switch (eid)\173""");
  877. ms884=e2s("case 0:");
  878. ms885=e2s("while (argc--)\173""*((T0 **)store)=va_arg(pa,T0 *);");
  879. ms886=e2s("store+=sizeof(T0 *);\175""break;");
  880. ms887=e2s("case 2:case 6:");
  881. ms888=e2s("while (argc--)\173""*((int *)store)=va_arg(pa,int);");
  882. ms889=e2s("store+=sizeof(int);\175""break;");
  883. ms890=e2s("case 3:");
  884. ms891=e2s("while (argc--)\173""*((char *)store)=((char)va_arg(pa,int));");
  885. ms892=e2s("store+=sizeof(char);\175""break;");
  886. ms893=e2s("case 4:");
  887. ms894=e2s("while (argc--)\173""*((float *)store)=va_arg(pa,double);");
  888. ms895=e2s("store+=sizeof(float);\175""break;");
  889. ms896=e2s("case 5:");
  890. ms897=e2s("while (argc--)\173""*((double *)store)=va_arg(pa,double);");
  891. ms898=e2s("store+=sizeof(double);\175""break;");
  892. ms899=e2s("while (argc--)\173""");
  893. ms900=e2s("memcpy(*((T0 **)va_arg(pa,T0 *)),store,s[eid]);");
  894. ms901=e2s("store+=s[eid];\175""\175""");
  895. ms902=e2s("va_end(pa);\175""");
  896. ms903=e2s("return (T0 *)a;");
  897. ms904=e2s("Manifest string used: ");
  898. ms905=e2s(".\n");
  899. ms906=e2s("Tstring *ms");
  900. ms907=e2s("void rsp(void)");
  901. ms908=e2s("AF_1;");
  902. ms909=e2s("printf(\"Eiffel program crash at run time.\\n\");");
  903. ms910=e2s("printf(\"Final Run Stack :\\n\");");
  904. ms911=e2s("\173""void **sp=(rs_bot-1);");
  905. ms912=e2s("while (1) \173""");
  906. ms913=e2s("sp++;");
  907. ms914=e2s("if (sp >= rs) break;");
  908. ms915=e2s("if (sp > rs_top) break;");
  909. ms916=e2s("switch ((int)*sp++)\173""");
  910. ms917=e2s("case linkId: continue;");
  911. ms918=e2s("case featureTagId:\173""");
  912. ms919=e2s("printf(\"==============================================================\\n\");");
  913. ms920=e2s("printf(\"------ %s\\n\",(char *)*sp);");
  914. ms921=e2s("continue;\175""");
  915. ms922=e2s("case nameId:\173""");
  916. ms923=e2s("printf(\"%s = \",(char *)*sp);");
  917. ms924=e2s("continue;\175""");
  918. ms925=e2s("case pointerId:\173""");
  919. ms926=e2s("printf(\"External POINTER `%p\'.\\n\",**(void ***)sp);");
  920. ms927=e2s("continue;\175""");
  921. ms928=e2s("case referenceId:\173""void *o=(**(T0 ***)sp);");
  922. ms929=e2s("if (o) \173""ANYprint(o,o); printf(\"\\n\");\175""");
  923. ms930=e2s("else printf(\"Void\\n\");continue;\175""");
  924. ms931=e2s("case expandedId:\173""");
  925. ms932=e2s("printf(\"expanded object\\n\");continue;\175""");
  926. ms933=e2s("case integerId:\173""");
  927. ms934=e2s("printf(\"%d\\n\",**(int **)sp);continue;\175""");
  928. ms935=e2s("case characterId:\173""");
  929. ms936=e2s("printf(\"\'%c\'\\n\",**(char **)sp);continue;\175""");
  930. ms937=e2s("case booleanId:\173""");
  931. ms938=e2s("if (**(int **)sp) printf(\"true\\n\");");
  932. ms939=e2s("else printf(\"false\\n\");continue;\175""");
  933. ms940=e2s("case realId:\173""");
  934. ms941=e2s("printf(\"%f\\n\",(double)**(float **)sp);");
  935. ms942=e2s("continue;\175""");
  936. ms943=e2s("case doubleId:\173""");
  937. ms944=e2s("printf(\"%f\\n\",**(double **)sp);continue;\175""");
  938. ms945=e2s("case lineId:\173""");
  939. ms946=e2s("printf(\"line %d \",*(int *)sp);");
  940. ms947=e2s("continue;\175""");
  941. ms948=e2s("case columnId:\173""");
  942. ms949=e2s("printf(\"column %d \",*(int *)sp);");
  943. ms950=e2s("continue;\175""");
  944. ms951=e2s("case pathId:\173""");
  945. ms952=e2s("printf(\"file %s \",p[*(int *)sp]);");
  946. ms953=e2s("continue;\175""");
  947. ms954=e2s("case doingWhatId:\173""");
  948. ms955=e2s("printf(\"(%s)\\n\",*(char **)sp);continue;\175""");
  949. ms956=e2s("case doingInvariantId:\173""");
  950. ms957=e2s("printf(\"Class Invariant of %s\\n\",*(char **)sp);");
  951. ms958=e2s("continue;\175""");
  952. ms959=e2s("default:\173""");
  953. ms960=e2s("printf(\"Stack Damaged ... Sorry.\\n\");");
  954. ms961=e2s("exit(1);\175""\175""\175""");
  955. ms962=e2s("printf(\"===================== End of Run Stack ==========================\\n\\n\");AF_0;\175""");
  956. ms963=e2s("void rsp(void)");
  957. ms964=e2s("printf(\"Eiffel program crash at run time.\\n\");");
  958. ms965=e2s("printf(\"No trace when using option \\\"-boost\\\"\\n\");");
  959. ms966=e2s("exit(1);");
  960. ms967=e2s("void error0(char *m)");
  961. ms968=e2s("rsp();");
  962. ms969=e2s("printf(\"*** Error at Run Time *** : %s\\n\",m);");
  963. ms970=e2s("exit(1);");
  964. ms971=e2s("void error1(char *m,int l,int c,int f)");
  965. ms972=e2s("rsp();");
  966. ms973=e2s("printf(\"Line : %d column %d in %s.\\n\",l,c,p[f]);");
  967. ms974=e2s("printf(\"*** Error at Run Time *** : %s\\n\",m);");
  968. ms975=e2s("exit(1);");
  969. ms976=e2s("void error2(T0 *o,int l,int c,int f)");
  970. ms977=e2s("printf(\"Target Type %s not legal.\\n\",s2e(gt[o->id]));");
  971. ms978=e2s("error1(\"Bad target.\",l,c,f);");
  972. ms979=e2s("T0 *vc(void *o,int l,int c,int f)");
  973. ms980=e2s("if (!o) error1(\"Call with a Void target.\",l,c,f);");
  974. ms981=e2s("return o;");
  975. ms982=e2s("T0 *ci(int id,void *o,int l,int c,int f)");
  976. ms983=e2s("if (id == (vc(o,l,c,f)->id)) return o;");
  977. ms984=e2s("rsp();");
  978. ms985=e2s("printf(\"Line : %d column %d in %s.\\n\",l,c,p[f]);");
  979. ms986=e2s("printf(\"*** Error at Run Time *** : \");");
  980. ms987=e2s("printf(\"Target is not valid (not the good type).\\n\");");
  981. ms988=e2s("printf(\"Expected :%s, Actual :%s.\\n\",");
  982. ms989=e2s("s2e(gt[id]),s2e(gt[((T0 *)o)->id]));");
  983. ms990=e2s("exit(1);");
  984. ms991=e2s("void evobt(void *o,int l,int c,int f)");
  985. ms992=e2s("if (!o) error1(\"Target is Void.\",l,c,f);");
  986. ms993=e2s("else error2(o,l,c,f);");
  987. ms994=e2s("void sigrsp(int sig)");
  988. ms995=e2s("printf(\"Received signal %d (man signal).\\n\",sig);");
  989. ms996=e2s("rsp();");
  990. ms997=e2s("exit(1);");
  991. ms998=e2s("void ");
  992. ms999=e2s(" XrT");
  993. ms1000=e2s("(void *C");
  994. ms1001=e2s("(int l,int c,int f, void *C");
  995. ms1002=e2s(" a");
  996. ms1003=e2s("int id=");
  997. ms1004=e2s("((T0 *)C)->id;\n");
  998. ms1005=e2s("vc(C,l,c,f)->id;\n");
  999. ms1006=e2s("return ");
  1000. ms1007=e2s(" cannot be converted to reference type.");
  1001. ms1008=e2s(" Not Yet Implemented.");
  1002. ms1009=e2s("if (id <= ");
  1003. ms1010=e2s(") \173""\n");
  1004. ms1011=e2s("\175"" else \173""\n");
  1005. ms1012=e2s("\175""");
  1006. ms1013=e2s("\175""\n");
  1007. ms1014=e2s("Total ");
  1008. ms1015=e2s(": ");
  1009. ms1016=e2s(".\n");
  1010. ms1017=e2s("No ");
  1011. ms1018=e2s(".\n");
  1012. ms1019=e2s("Defined Switche");
  1013. ms1020=e2s("Automatic ");
  1014. ms1021=e2s(" to ");
  1015. ms1022=e2s(" type conversion.\n");
  1016. ms1023=e2s("T0 *");
  1017. ms1024=e2s("toT");
  1018. ms1025=e2s(" s)");
  1019. ms1026=e2s(";\n");
  1020. ms1027=e2s("\173""\n");
  1021. ms1028=e2s(" *d=((");
  1022. ms1029=e2s("*)new(");
  1023. ms1030=e2s("));\nd->_item=s;\nreturn (T0 *)d;\175""\n");
  1024. ms1031=e2s("Calls with a Void target : ");
  1025. ms1032=e2s(" (yes it is dangerous).\n");
  1026. ms1033=e2s("Direct Call");
  1027. ms1034=e2s("Check Id Call");
  1028. ms1035=e2s("Switched Call");
  1029. ms1036=e2s("Inlined Procedure");
  1030. ms1037=e2s("Inlined Function");
  1031. ms1038=e2s("Static Expression");
  1032. ms1039=e2s("Real Procedure");
  1033. ms1040=e2s("Real Function");
  1034. ms1041=e2s("Procedure");
  1035. ms1042=e2s("Function");
  1036. ms1043=e2s("Pre-Computed Once Function Call");
  1037. ms1044=e2s("Internal stacks size used : ");
  1038. ms1045=e2s("Define initialize stuff.\n");
  1039. ms1046=e2s("];\n");
  1040. ms1047=e2s("extern ");
  1041. ms1048=e2s("[];\n");
  1042. ms1049=e2s("size_t");
  1043. ms1050=e2s("s");
  1044. ms1051=e2s("Tstring *");
  1045. ms1052=e2s("gt");
  1046. ms1053=e2s("Tstring *");
  1047. ms1054=e2s("g");
  1048. ms1055=e2s("char *");
  1049. ms1056=e2s("p");
  1050. ms1057=e2s("void initialize(void);\n");
  1051. ms1058=e2s("void initialize(void)\173""\n");
  1052. ms1059=e2s("s[");
  1053. ms1060=e2s("]=sizeof(T");
  1054. ms1061=e2s(");\n");
  1055. ms1062=e2s("p[0]=\"???\";\n");
  1056. ms1063=e2s("p[");
  1057. ms1064=e2s("]=");
  1058. ms1065=e2s(";\n");
  1059. ms1066=e2s("p[");
  1060. ms1067=e2s("]=p[");
  1061. ms1068=e2s("];\n");
  1062. ms1069=e2s("g[");
  1063. ms1070=e2s("]=e2s(");
  1064. ms1071=e2s(");\n");
  1065. ms1072=e2s("g[");
  1066. ms1073=e2s("]=g[");
  1067. ms1074=e2s("];\n");
  1068. ms1075=e2s("gt[");
  1069. ms1076=e2s("]=");
  1070. ms1077=e2s("e2s(");
  1071. ms1078=e2s("g[");
  1072. ms1079=e2s(";\n");
  1073. ms1080=e2s("\175""\n");
  1074. ms1081=e2s("Writing \"");
  1075. ms1082=e2s("DOS");
  1076. ms1083=e2s("bin");
  1077. ms1084=e2s("system.se");
  1078. ms1085=e2s("Unable to find system name file\n\"");
  1079. ms1086=e2s("\".\n");
  1080. ms1087=e2s("UNIX");
  1081. ms1088=e2s("DOS");
  1082. ms1089=e2s("Macintosh");
  1083. ms1090=e2s("OS2");
  1084. ms1091=e2s("Amiga");
  1085. ms1092=e2s("Unknow system name in file\n\"");
  1086. ms1093=e2s("\".\nCurrently handled system :\n");
  1087. ms1094=e2s(".BAT");
  1088. ms1095=e2s(".CMD");
  1089. ms1096=e2s(".make");
  1090. ms1097=e2s("\" file.\n");
  1091. ms1098=e2s("cc");
  1092. ms1099=e2s("gcc -ansi ");
  1093. ms1100=e2s("-pipe ");
  1094. ms1101=e2s("-c ");
  1095. ms1102=e2s("-o ");
  1096. ms1103=e2s(".o");
  1097. ms1104=e2s("emxbind -qs ");
  1098. ms1105=e2s("strip ");
  1099. ms1106=e2s("a.out");
  1100. ms1107=e2s("Done.\n");
  1101. ms1108=e2s("Cannot produce C code.");
  1102. ms1109=e2s("is_expanded_type");
  1103. ms1110=e2s("Feature not found.");
  1104. ms1111=e2s("Feature found is not writable.");
  1105. ms1112=e2s("Bad feature name.");
  1106. ms1113=e2s("C\'est possible ca (2) ?");
  1107. ms1114=e2s(" 1.");
  1108. ms1115=e2s(" 2.");
  1109. ms1116=e2s("Conflict between argument/feature name (VRFA).");
  1110. ms1117=e2s("Bad expression in manifest array.");
  1111. ms1118=e2s("Bad type of element for type ARRAY.");
  1112. ms1119=e2s("Bad target.");
  1113. ms1120=e2s("Feature ");
  1114. ms1121=e2s(" not found when starting look up from ");
  1115. ms1122=e2s(" is not a subclass of ");
  1116. ms1123=e2s(". RUN_FEATURE information.");
  1117. ms1124=e2s("Unable to load ");
  1118. ms1125=e2s("Unable to load ");
  1119. ms1126=e2s("NYI");
  1120. ms1127=e2s("Don\'t know how to merge two clients list (internal error).");
  1121. ms1128=e2s("Don\'t know how to compute client list  for this feature (internal error). Bad undefine ? Inheritance clash ?");
  1122. ms1129=e2s(" Cannot use feature \"");
  1123. ms1130=e2s("\" here.");
  1124. ms1131=e2s("Feature found has no result.");
  1125. ms1132=e2s("Feature found has arguments.");
  1126. ms1133=e2s("E_STRIP/nyi.");
  1127. ms1134=e2s("Feature not found.");
  1128. ms1135=e2s("Bad expression.");
  1129. ms1136=e2s("Bad argument.");
  1130. ms1137=e2s("Bad number of arguments.");
  1131. ms1138=e2s("Bad number of arguments.");
  1132. ms1139=e2s(" It is not Like Current.");
  1133. ms1140=e2s("It is not Like <feature>.");
  1134. ms1141=e2s(" It is not Like <argument>.");
  1135. ms1142=e2s("Real/Formal argument mismatch (3).");
  1136. ms1143=e2s("Bad arguments.");
  1137. ms1144=e2s("Bad type.");
  1138. ms1145=e2s("Conflict between local/feature name (VRLE).");
  1139. ms1146=e2s("Bad old expression.");
  1140. ms1147=e2s("Bad target.");
  1141. ms1148=e2s(" Comparison ");
  1142. ms1149=e2s(" Not Valid. Context of Types interpretation is ");
  1143. ms1150=e2s("Reference/Reference");
  1144. ms1151=e2s("Reference/Expanded");
  1145. ms1152=e2s("Expanded/Expanded");
  1146. ms1153=e2s("Expanded/Expanded");
  1147. ms1154=e2s("Expanded/Reference");
  1148. ms1155=e2s("BIT_CONSTANT/nyi.");
  1149. ms1156=e2s("C->_");
  1150. ms1157=e2s("ms");
  1151. ms1158=e2s("BIT_N Not Yet Implemented.");
  1152. ms1159=e2s("((float)");
  1153. ms1160=e2s("ma(");
  1154. ms1161=e2s("0,");
  1155. ms1162=e2s("generating_type");
  1156. ms1163=e2s("((T0 *)(gt[(");
  1157. ms1164=e2s("ivT");
  1158. ms1165=e2s("((T");
  1159. ms1166=e2s(" *)ci(");
  1160. ms1167=e2s("))");
  1161. ms1168=e2s("(T");
  1162. ms1169=e2s(" *)C");
  1163. ms1170=e2s("->_");
  1164. ms1171=e2s("Call on a Void or a bad target.");
  1165. ms1172=e2s(" is concerned. ");
  1166. ms1173=e2s("Compiler (SmallEiffel/cc/gcc) may fail because of System Validity Problem. Sorry.");
  1167. ms1174=e2s("(rsp();exit(1);)");
  1168. ms1175=e2s("evobt(");
  1169. ms1176=e2s(")->id");
  1170. ms1177=e2s("]))");
  1171. ms1178=e2s("generator");
  1172. ms1179=e2s("((T0 *)(g[((");
  1173. ms1180=e2s(")->id)");
  1174. ms1181=e2s("))");
  1175. ms1182=e2s("]))");
  1176. ms1183=e2s("XrT");
  1177. ms1184=e2s("Conversion Reference to Expanded is Not Yet Implemented.");
  1178. ms1185=e2s("(T0 *)");
  1179. ms1186=e2s("E_STRIP/nyi.");
  1180. ms1187=e2s("NULL");
  1181. ms1188=e2s("((void *)");
  1182. ms1189=e2s("rT");
  1183. ms1190=e2s(")==(");
  1184. ms1191=e2s("!memcmp(&(");
  1185. ms1192=e2s("),&(");
  1186. ms1193=e2s("),s[");
  1187. ms1194=e2s("])");
  1188. ms1195=e2s("((");
  1189. ms1196=e2s("),0)");
  1190. ms1197=e2s("((");
  1191. ms1198=e2s("),(");
  1192. ms1199=e2s("),0)");
  1193. ms1200=e2s("!(");
  1194. ms1201=e2s("!(");
  1195. ms1202=e2s("((T0 *)");
  1196. ms1203=e2s(")==((T0 *)");
  1197. ms1204=e2s(")!=(");
  1198. ms1205=e2s("memcmp(&(");
  1199. ms1206=e2s("),&(");
  1200. ms1207=e2s("),s[");
  1201. ms1208=e2s("])");
  1202. ms1209=e2s("((");
  1203. ms1210=e2s("),1)");
  1204. ms1211=e2s("((");
  1205. ms1212=e2s("),(");
  1206. ms1213=e2s("),1)");
  1207. ms1214=e2s("((int)");
  1208. ms1215=e2s("((int)");
  1209. ms1216=e2s("((T0 *)");
  1210. ms1217=e2s(")!=((T0 *)");
  1211. ms1218=e2s("Bad target.");
  1212. ms1219=e2s("Feature found in ");
  1213. ms1220=e2s("Feature found is not a procedure.");
  1214. ms1221=e2s(" Cannot use procedure \"");
  1215. ms1222=e2s("\" here.");
  1216. ms1223=e2s("Feature found has argument(s).");
  1217. ms1224=e2s("Bad argument.");
  1218. ms1225=e2s("Bad arguments.");
  1219. ms1226=e2s("Bad check list.");
  1220. ms1227=e2s("Bad instruction.");
  1221. ms1228=e2s("Bad BOOLEAN expression.");
  1222. ms1229=e2s("Expression of if/elseif must be BOOLEAN.");
  1223. ms1230=e2s("Empty when clause in inspect.");
  1224. ms1231=e2s("Bad when clause.");
  1225. ms1232=e2s("Bad when list.");
  1226. ms1233=e2s("Bad inspect.");
  1227. ms1234=e2s("Empty when clause in inspect.");
  1228. ms1235=e2s("Expression must be INTEGER or CHARACTER.");
  1229. ms1236=e2s(" is not allowed.");
  1230. ms1237=e2s("Bad initialisation part.");
  1231. ms1238=e2s("Bab invariant.");
  1232. ms1239=e2s("Bad variant for this loop.");
  1233. ms1240=e2s("This loop has an invalid expression.");
  1234. ms1241=e2s("Invalid loop body.");
  1235. ms1242=e2s("Bad writable target for creation.");
  1236. ms1243=e2s(" is deferred. ");
  1237. ms1244=e2s("Cannot create object.");
  1238. ms1245=e2s("Creation call on expanded target (");
  1239. ms1246=e2s(").");
  1240. ms1247=e2s("Creation call on formal generic type (");
  1241. ms1248=e2s(").");
  1242. ms1249=e2s("Creation clause exists for ");
  1243. ms1250=e2s(". ");
  1244. ms1251=e2s("You must use a constructor.");
  1245. ms1252=e2s("Invalid explicit type.");
  1246. ms1253=e2s(" Bad explicit type mark.");
  1247. ms1254=e2s(" is not in the creation list of ");
  1248. ms1255=e2s("Creation procedure not found.");
  1249. ms1256=e2s("Feature found is not a procedure.");
  1250. ms1257=e2s("Procedure found has argument(s).");
  1251. ms1258=e2s("Bad arguments.");
  1252. ms1259=e2s("Bad left hand side of assignment.");
  1253. ms1260=e2s("Bad right hand side of assignment.");
  1254. ms1261=e2s("Type mismatch.");
  1255. ms1262=e2s("Bad assignment.");
  1256. ms1263=e2s("ASSIGNMENT/Not Yet Implemented.");
  1257. ms1264=e2s(" is a ");
  1258. ms1265=e2s(". Simple assignment is allowed");
  1259. ms1266=e2s(" (\"?=\" is not necessary).");
  1260. ms1267=e2s(" is not a reference Type.");
  1261. ms1268=e2s(" Invalid reverse assignment (VJRV).");
  1262. ms1269=e2s("rs-=8;\n");
  1263. ms1270=e2s("civ");
  1264. ms1271=e2s("/*IF*/");
  1265. ms1272=e2s(" else ");
  1266. ms1273=e2s("\173""/*AT*/");
  1267. ms1274=e2s("\175""\n");
  1268. ms1275=e2s("/*AF*/");
  1269. ms1276=e2s("if (");
  1270. ms1277=e2s(",rs_pop_int(");
  1271. ms1278=e2s(") \173""\n");
  1272. ms1279=e2s("\175""\n");
  1273. ms1280=e2s("/*AE*/\n");
  1274. ms1281=e2s("else \173""\n");
  1275. ms1282=e2s("\175""\n");
  1276. ms1283=e2s("/*FI*/");
  1277. ms1284=e2s("E_RETRY/nyi.");
  1278. ms1285=e2s("\173""int ");
  1279. ms1286=e2s("iv");
  1280. ms1287=e2s(";\n");
  1281. ms1288=e2s("if (");
  1282. ms1289=e2s(" == ");
  1283. ms1290=e2s(") ");
  1284. ms1291=e2s("goto l");
  1285. ms1292=e2s(";\n");
  1286. ms1293=e2s("if ((");
  1287. ms1294=e2s(" <= ");
  1288. ms1295=e2s(") && (");
  1289. ms1296=e2s("<= ");
  1290. ms1297=e2s(")) ");
  1291. ms1298=e2s(" l");
  1292. ms1299=e2s(": ;\n");
  1293. ms1300=e2s("error1(");
  1294. ms1301=e2s(");\n");
  1295. ms1302=e2s("Invalid inspect (nothing selected).");
  1296. ms1303=e2s("\175""\n");
  1297. ms1304=e2s("\173""int c=0;int v=0;\n");
  1298. ms1305=e2s("liv");
  1299. ms1306=e2s("while (!(");
  1300. ms1307=e2s(")) \173""\n");
  1301. ms1308=e2s("v=lvc(c++,v,");
  1302. ms1309=e2s(");\n");
  1303. ms1310=e2s("\175""\n");
  1304. ms1311=e2s("\175""\n");
  1305. ms1312=e2s("=((T0 *)");
  1306. ms1313=e2s(");\n");
  1307. ms1314=e2s("=((T0 *)");
  1308. ms1315=e2s(");\n");
  1309. ms1316=e2s("\173""T");
  1310. ms1317=e2s(" *n=");
  1311. ms1318=e2s(";\n");
  1312. ms1319=e2s("n");
  1313. ms1320=e2s("=(T0 *)n;\175""\n");
  1314. ms1321=e2s("\173""T");
  1315. ms1322=e2s(" *n=");
  1316. ms1323=e2s(";\n");
  1317. ms1324=e2s("n");
  1318. ms1325=e2s("=(T0 *)n;\175""");
  1319. ms1326=e2s("(T0 *)");
  1320. ms1327=e2s("(T0 *)");
  1321. ms1328=e2s(";\n");
  1322. ms1329=e2s(");\n");
  1323. ms1330=e2s("Not Yet Implemented (ASSIGNMENT/Reference into Expanded).");
  1324. ms1331=e2s(";\n");
  1325. ms1332=e2s("=NULL;\n");
  1326. ms1333=e2s("(T0 *)");
  1327. ms1334=e2s("REVERSE_ASSIGNMENT Not Yet Implemented.");
  1328. ms1335=e2s(";\nif ((int)");
  1329. ms1336=e2s(") switch (((T0 *)");
  1330. ms1337=e2s(")->");
  1331. ms1338=e2s("id) \173""\n");
  1332. ms1339=e2s("case ");
  1333. ms1340=e2s(": ");
  1334. ms1341=e2s("\nbreak;\ndefault:\n");
  1335. ms1342=e2s(" = NULL;\n\175"";");
  1336. ms1343=e2s("Second occurrence for this value (");
  1337. ms1344=e2s(") in the same inspect.");
  1338. ms1345=e2s("Bad INTEGER value.");
  1339. ms1346=e2s("Bad INTEGER value.");
  1340. ms1347=e2s("Bad INTEGER value.");
  1341. ms1348=e2s("Not a good slice.");
  1342. ms1349=e2s("Bad CHARACTER value.");
  1343. ms1350=e2s("Bad CHARACTER value.");
  1344. ms1351=e2s("Bad CHARACTER value.");
  1345. ms1352=e2s("char trT");
  1346. ms1353=e2s("[]=\"");
  1347. ms1354=e2s("infix ");
  1348. ms1355=e2s("prefix ");
  1349. ms1356=e2s(" of ");
  1350. ms1357=e2s("\";\n");
  1351. ms1358=e2s("extern char trT");
  1352. ms1359=e2s("[];\n");
  1353. ms1360=e2s("void ");
  1354. ms1361=e2s("rT");
  1355. ms1362=e2s("/*C*/");
  1356. ms1363=e2s("void");
  1357. ms1364=e2s(" a");
  1358. ms1365=e2s(" R=");
  1359. ms1366=e2s("NULL");
  1360. ms1367=e2s(";\n");
  1361. ms1368=e2s(" _");
  1362. ms1369=e2s(";\n");
  1363. ms1370=e2s("rs_link(t");
  1364. ms1371=e2s(");\n");
  1365. ms1372=e2s("rs_p");
  1366. ms1373=e2s("REF((void **)");
  1367. ms1374=e2s("BIT");
  1368. ms1375=e2s("EXP");
  1369. ms1376=e2s(");\n");
  1370. ms1377=e2s("C");
  1371. ms1378=e2s("R");
  1372. ms1379=e2s("req_last_chance=1;\n");
  1373. ms1380=e2s("req");
  1374. ms1381=e2s("req_last_chance=0;\n");
  1375. ms1382=e2s("req_last_result=1;\n");
  1376. ms1383=e2s("if (!req_last_result) \173""");
  1377. ms1384=e2s("req_last_result=1;\n");
  1378. ms1385=e2s("\175""\n");
  1379. ms1386=e2s("req_last_chance=1;\n");
  1380. ms1387=e2s("ens");
  1381. ms1388=e2s("rs_unlink();\n");
  1382. ms1389=e2s("\175""\n");
  1383. ms1390=e2s("/*(IRF3*/");
  1384. ms1391=e2s("((");
  1385. ms1392=e2s("->_");
  1386. ms1393=e2s(")=(");
  1387. ms1394=e2s("(T0 *)");
  1388. ms1395=e2s(")->_item");
  1389. ms1396=e2s("Internal Error #1 in SWITCH.");
  1390. ms1397=e2s("Internal Error #2 in SWITCH.");
  1391. ms1398=e2s(");\n");
  1392. ms1399=e2s("/*UT*/");
  1393. ms1400=e2s(",\n");
  1394. ms1401=e2s(";\n");
  1395. ms1402=e2s("\173""\n");
  1396. ms1403=e2s("\175""\n");
  1397. ms1404=e2s("/*)*/");
  1398. ms1405=e2s(");\n");
  1399. ms1406=e2s(");\n");
  1400. ms1407=e2s("TYPE_BIT/NYI (45).");
  1401. ms1408=e2s("\'\\0\'");
  1402. ms1409=e2s("NULL");
  1403. ms1410=e2s("BIT ");
  1404. ms1411=e2s("ANY not found.");
  1405. ms1412=e2s("ANY must not be expanded.");
  1406. ms1413=e2s("Only one level of anchoring allowed.");
  1407. ms1414=e2s("Anchor must not be expanded.");
  1408. ms1415=e2s("Bad anchor.");
  1409. ms1416=e2s("Bad anchor.");
  1410. ms1417=e2s("Bad anchor.");
  1411. ms1418=e2s("Bad anchor. Feature not found.");
  1412. ms1419=e2s("Bad anchor. Feature found cannot be an anchor.");
  1413. ms1420=e2s("Bad anchor.");
  1414. ms1421=e2s(" is invalid. ");
  1415. ms1422=e2s("A deferred class must not be expanded (VTEC.1).");
  1416. ms1423=e2s(" cannot be expanded. ");
  1417. ms1424=e2s("Expanded class must have no creation procedure, or only one creation procedure with no arguments (VTEC.2).");
  1418. ms1425=e2s(" cannot be expanded. ");
  1419. ms1426=e2s("Creation procedure for ");
  1420. ms1427=e2s(" not found.");
  1421. ms1428=e2s("Feature found is not a procedure.");
  1422. ms1429=e2s(" cannot be expanded. ");
  1423. ms1430=e2s("Procedure found has arguments. ");
  1424. ms1431=e2s(" is invalid.");
  1425. ms1432=e2s("feature ");
  1426. ms1433=e2s(" not found.");
  1427. ms1434=e2s(" must be an INTEGER constant.");
  1428. ms1435=e2s("TYPE_BIT_2/NYI");
  1429. ms1436=e2s(" must be a positive INTEGER.");
  1430. ms1437=e2s(" is (not) generic ?");
  1431. ms1438=e2s("Bad generic argument.");
  1432. ms1439=e2s("BASE_CLASS/nyi.");
  1433. ms1440=e2s("Internal Error #1 in PARENT_LIST.");
  1434. ms1441=e2s(" to_runnable(");
  1435. ms1442=e2s(") NOYE ..");
  1436. ms1443=e2s("BOOLEAN not found.");
  1437. ms1444=e2s("BOOLEAN must be expanded.");
  1438. ms1445=e2s("CHARACTER not found.");
  1439. ms1446=e2s("CHARACTER must be expanded.");
  1440. ms1447=e2s("DOUBLE not found.");
  1441. ms1448=e2s("DOUBLE must be expanded.");
  1442. ms1449=e2s("INTEGER not found.");
  1443. ms1450=e2s("INTEGER must be expanded.");
  1444. ms1451=e2s("POINTER not found.");
  1445. ms1452=e2s("POINTER must be expanded.");
  1446. ms1453=e2s("char *");
  1447. ms1454=e2s("void *");
  1448. ms1455=e2s("REAL not found.");
  1449. ms1456=e2s("REAL must be expanded.");
  1450. ms1457=e2s("STRING not found.");
  1451. ms1458=e2s("STRING must not be expanded.");
  1452. ms1459=e2s("Invalid type.");
  1453. ms1460=e2s("Class Not found.");
  1454. ms1461=e2s("Internal Error #1 in TYPE_NONE.");
  1455. ms1462=e2s("item");
  1456. ms1463=e2s("BIT_N");
  1457. ms1464=e2s("T8");
  1458. ms1465=e2s("Internal Error #1 in TYPE_EXPANDED.");
  1459. ms1466=e2s("Internal Error #1 in TYPE_ARRAY.");
  1460. ms1467=e2s("Internal Error #1 in TYPE_BOOLEAN.");
  1461. ms1468=e2s("Internal Error #1 in TYPE_CLASS.");
  1462. ms1469=e2s("Internal Error #2 in TYPE_CLASS.");
  1463. ms1470=e2s("Internal Error #3 in TYPE_CLASS.");
  1464. ms1471=e2s("Internal Error #1 in TYPE_CHARACTER.");
  1465. ms1472=e2s("Internal Error #1 in TYPE_DOUBLE.");
  1466. ms1473=e2s("Internal Error #1 in TYPE_INTEGER.");
  1467. ms1474=e2s("Internal Error #1 in TYPE_REAL.");
  1468. ms1475=e2s("Internal Error #1 in TYPE_STRING.");
  1469. ms1476=e2s("Internal Error #1 in TYPE_GENERIC.");
  1470. ms1477=e2s("like Current");
  1471. ms1478=e2s("BIT ");
  1472. ms1479=e2s("BIT ");
  1473. ms1480=e2s("struct sT");
  1474. ms1481=e2s("\173""int id;int _capacity;int _lower;int _upper;T");
  1475. ms1482=e2s("*_storage;\175"";\n");
  1476. ms1483=e2s(" is not a kind of ");
  1477. ms1484=e2s(" (VNCB).");
  1478. ms1485=e2s(" is a subclass of ");
  1479. ms1486=e2s(". It must not be so. SmallEiffel limitation :-(.");
  1480. ms1487=e2s(" does not match with ");
  1481. ms1488=e2s(" (TYPE_GENERIC).");
  1482. ms1489=e2s(" (TYPE_GENERIC).");
  1483. ms1490=e2s(" (TYPE_GENERIC).");
  1484. ms1491=e2s("No creation for ANY.");
  1485. ms1492=e2s("Such a simple Type has no creation clause.");
  1486. ms1493=e2s("No creation for NONE.");
  1487. ms1494=e2s("No creation for POINTER.");
  1488. ms1495=e2s("*** TYPE_BIT.c_type_in ***");
  1489. ms1496=e2s("int");
  1490. ms1497=e2s("char");
  1491. ms1498=e2s("double");
  1492. ms1499=e2s("int");
  1493. ms1500=e2s("float");
  1494. ms1501=e2s("T0 *");
  1495. ms1502=e2s("T0 *");
  1496. ms1503=e2s("typedef struct sT");
  1497. ms1504=e2s("array");
  1498. ms1505=e2s(" T");
  1499. ms1506=e2s(";\n");
  1500. ms1507=e2s("typedef int T6;\n");
  1501. ms1508=e2s("typedef char T3;\n");
  1502. ms1509=e2s("typedef double T5;\n");
  1503. ms1510=e2s("typedef int T2;\n");
  1504. ms1511=e2s("typedef void * T8;\n");
  1505. ms1512=e2s("typedef float T4;\n");
  1506. ms1513=e2s("typedef struct sTstring T7;\n");
  1507. ms1514=e2s("Same name appears twice.");
  1508. ms1516=e2s("argument");
  1509. ms1517=e2s("argument_count");
  1510. ms1518=e2s("An attribute must not be undefined (VDUS).");
  1511. ms1519=e2s("A once routine must not be undefined (VDUS).");
  1512. ms1520=e2s("FEATURE_NAME/Should never be called.");
  1513. ms1521=e2s("0*");
  1514. ms1522=e2s(";\n");
  1515. ms1523=e2s("Cannot access address of a constant (VZAA).");
  1516. ms1524=e2s(" is a deferred feature in ");
  1517. ms1525=e2s("&(C->_");
  1518. ms1526=e2s("return R;\n\175""\n");
  1519. ms1527=e2s("extern int ");
  1520. ms1528=e2s(";\n");
  1521. ms1529=e2s("int ");
  1522. ms1530=e2s("=0;\n");
  1523. ms1531=e2s("if (");
  1524. ms1532=e2s("==0)\173""\n");
  1525. ms1533=e2s("=1;\n");
  1526. ms1534=e2s("\175""\n");
  1527. ms1535=e2s("\175""\n");
  1528. ms1536=e2s("std_output");
  1529. ms1537=e2s("std_input");
  1530. ms1538=e2s("std_error");
  1531. ms1539=e2s("io");
  1532. ms1540=e2s("extern ");
  1533. ms1541=e2s("0*");
  1534. ms1542=e2s(";\n");
  1535. ms1543=e2s("if (");
  1536. ms1544=e2s("==0)\173""\n");
  1537. ms1545=e2s("=1;\n");
  1538. ms1546=e2s("=R;\175""\n");
  1539. ms1547=e2s("return ");
  1540. ms1548=e2s(";\175""\n");
  1541. ms1549=e2s("RF3/can_be_dropped : Not Yet Implemented.");
  1542. ms1550=e2s("RF1/can_be_dropped : Not Yet Implemented.");
  1543. ms1551=e2s("RF7/can_be_dropped : Not Yet Implemented.");
  1544. ms1552=e2s("RF8/can_be_dropped : Not Yet Implemented.");
  1545. ms1553=e2s("RF4/Can be dropped ?");
  1546. ms1554=e2s("RF5/can_be_dropped : Not Yet Implemented.");
  1547. ms1555=e2s("(T0 *)");
  1548. ms1556=e2s("c_inline_c");
  1549. ms1557=e2s("c_inline_h");
  1550. ms1558=e2s(");\n");
  1551. ms1559=e2s(");\n");
  1552. ms1560=e2s("]");
  1553. ms1561=e2s("\\\\");
  1554. ms1562=e2s("%");
  1555. ms1563=e2s("//");
  1556. ms1564=e2s("to_character");
  1557. ms1565=e2s("^");
  1558. ms1566=e2s("pow(");
  1559. ms1567=e2s("floor");
  1560. ms1568=e2s("floor(");
  1561. ms1569=e2s("sqrt");
  1562. ms1570=e2s("sqrt(");
  1563. ms1571=e2s("to_real");
  1564. ms1572=e2s("(float)");
  1565. ms1573=e2s("(!(");
  1566. ms1574=e2s("))\174""\174""(");
  1567. ms1575=e2s("!");
  1568. ms1576=e2s("\174""\174""");
  1569. ms1577=e2s("\174""\174""");
  1570. ms1578=e2s("&&");
  1571. ms1579=e2s("&&");
  1572. ms1580=e2s("((unsigned char)");
  1573. ms1581=e2s("feof");
  1574. ms1582=e2s("feof((FILE *)(");
  1575. ms1583=e2s(")->_input_stream)");
  1576. ms1584=e2s("fgetc");
  1577. ms1585=e2s("fputc");
  1578. ms1586=e2s("stderr");
  1579. ms1587=e2s("stdin");
  1580. ms1588=e2s("stdout");
  1581. ms1589=e2s("/*(IRF4*/");
  1582. ms1590=e2s("(T0 *)");
  1583. ms1591=e2s("/*)*/");
  1584. ms1592=e2s(");\n");
  1585. ms1593=e2s(");\n");
  1586. ms1594=e2s(")->_");
  1587. ms1595=e2s("make");
  1588. ms1596=e2s("DICTIONARY[");
  1589. ms1597=e2s("FIXED_ARRAY[");
  1590. {T0 *R;
  1591. {T45 *n=((T45*)new(45));
  1592. /*(IRF3*//*)*/R=(T0 *)n;}
  1593. oRBC27eh=R;}/*PCO*/
  1594. {T0 *R;
  1595. {T40 *n=((T40*)new(40));
  1596. /*(IRF3*//*)*/R=(T0 *)n;}
  1597. oRBC27cpp=R;}/*PCO*/
  1598. {T0 *R;
  1599. {T7 *n=((T7*)new(7));
  1600. rT7make(n,256);
  1601. R=(T0 *)n;}
  1602. oRBC67mapping_c_mem=R;}/*PCO*/
  1603. {T0 *R;
  1604. {T52 *n=((T52*)new(52));
  1605. /*(IRF3*//*)*/R=(T0 *)n;}
  1606. oRBC27small_eiffel=R;}/*PCO*/
  1607. {T0 *R;
  1608. {T56 *n=((T56*)new(56));
  1609. rT56make(n,1,20);
  1610. R=(T0 *)n;}
  1611. oRBC50visited=R;}/*PCO*/
  1612. {T0 *R;
  1613. {T44 *n=((T44*)new(44));
  1614. /*(IRF3*//*)*/R=(T0 *)n;}
  1615. oRBC27eiffel_run_control=R;}/*PCO*/
  1616. {T0 *R;
  1617. {T51 *n=((T51*)new(51));
  1618. /*(IRF3*//*)*/R=(T0 *)n;}
  1619. oRBC27eiffel_parser=R;}/*PCO*/
  1620. {T0 *R;
  1621. {T54 *n=((T54*)new(54));
  1622. rT54make(n);
  1623. R=(T0 *)n;}
  1624. oRBC52base_class_dictionary=R;}/*PCO*/
  1625. {T0 *R;
  1626. {T38 *n=((T38*)new(38));
  1627. rT38make(n);
  1628. R=(T0 *)n;}
  1629. oRBC1std_output=R;}/*PCO*/
  1630. {T0 *R;
  1631. {T262 *n=((T262*)new(262));
  1632. rT262make(n);
  1633. R=(T0 *)n;}
  1634. oRBC52run_class_dictionary=R;}/*PCO*/
  1635. {T0 *R;
  1636. {T265 *n=((T265*)new(265));
  1637. rT265make(n,1,50);
  1638. R=(T0 *)n;}
  1639. oRBC52stack_rf=R;}/*PCO*/
  1640. {T0 *R;
  1641. {T33 *n=((T33*)new(33));
  1642. rT33make(n);
  1643. R=(T0 *)n;}
  1644. oRBC1std_error=R;}/*PCO*/
  1645. {T0 *R;
  1646. {T158 *n=((T158*)new(158));
  1647. rT158make(n,1,10);
  1648. R=(T0 *)n;}
  1649. oRBC62assertion_collector=R;}/*PCO*/
  1650. {T0 *R;
  1651. {T268 *n=((T268*)new(268));
  1652. rT268make(n,1,10);
  1653. R=(T0 *)n;}
  1654. oRBC62require_collector=R;}/*PCO*/
  1655. {T0 *R;
  1656. {T7 *n=((T7*)new(7));
  1657. rT7make(n,256);
  1658. R=(T0 *)n;}
  1659. oRBC27hlp_file_name=R;}/*PCO*/
  1660. {T0 *R;
  1661. R=ma(41,0,9,(T0 *)ms185,(T0 *)ms187,(T0 *)ms188,(T0 *)ms189,(T0 *)ms194,(T0 *)ms191,(T0 *)ms196,(T0 *)ms198,(T0 *)ms200);
  1662. oRBC118forbidden_parent_list=R;}/*PCO*/
  1663. {T0 *R;
  1664. R=ma(41,0,18,(T0 *)ms183,(T0 *)ms184,(T0 *)ms185,(T0 *)ms186,(T0 *)ms187,(T0 *)ms188,(T0 *)ms189,(T0 *)ms190,(T0 *)ms191,(T0 *)ms192,(T0 *)ms193,(T0 *)ms194,(T0 *)ms195,(T0 *)ms196,(T0 *)ms197,(T0 *)ms198,(T0 *)ms199,(T0 *)ms200);
  1665. oRBC48special_names=R;}/*PCO*/
  1666. {T0 *R;
  1667. {T7 *n=((T7*)new(7));
  1668. rT7make(n,25);
  1669. R=(T0 *)n;}
  1670. oRBC259cdm=R;}/*PCO*/
  1671. {T0 *R;
  1672. {T7 *n=((T7*)new(7));
  1673. rT7make(n,256);
  1674. R=(T0 *)n;}
  1675. oRBC139c2c_mem=R;}/*PCO*/
  1676. {T0 *R;
  1677. {T60 *n=((T60*)new(60));
  1678. /*(IRF3*//*)*/R=(T0 *)n;}
  1679. oRBC51text=R;}/*PCO*/
  1680. {T0 *R;
  1681. {T7 *n=((T7*)new(7));
  1682. rT7make(n,80);
  1683. R=(T0 *)n;}
  1684. oRBC51lcs=R;}/*PCO*/
  1685. {T0 *R;
  1686. R=((T0 *)((T136*)new(136)));
  1687. oRBC51tmp_feature=R;}/*PCO*/
  1688. {T0 *R;
  1689. R=ma(41,0,1,(T0 *)ms185);
  1690. oRBC51forbidden_class=R;}/*PCO*/
  1691. {T0 *R;
  1692. {T41 *n=((T41*)new(41));
  1693. rT41make(n,1,0);
  1694. R=(T0 *)n;}
  1695. oRBC60storage=R;}/*PCO*/
  1696. {T0 *R;
  1697. {T7 *n=((T7*)new(7));
  1698. rT7make(n,256);
  1699. R=(T0 *)n;}
  1700. oRBC58tmp_string=R;}/*PCO*/
  1701. {T0 *R;
  1702. {T56 *n=((T56*)new(56));
  1703. rT56make(n,1,0);
  1704. R=(T0 *)n;}
  1705. oRBC116check_memory=R;}/*PCO*/
  1706. {T0 *R;
  1707. R=ma(41,0,53,ms111,ms112,(T0 *)ms103,ms113,(T0 *)ms114,ms115,(T0 *)ms116,ms117,ms118,ms119,(T0 *)ms107,ms120,(T0 *)ms121,ms122,(T0 *)ms123,ms124,ms125,ms126,ms127,ms128,ms129,ms130,(T0 *)ms102,ms131,ms132,ms133,ms134,ms135,ms136,ms137,ms138,ms139,ms140,ms141,ms142,(T0 *)ms106,ms143,ms144,ms145,ms146,ms147,ms148,ms149,ms150,ms151,ms152,ms153,ms154,ms155,ms156,ms157,ms158,(T0 *)ms101);
  1708. oRBC69keyword_table=R;}/*PCO*/
  1709. {T0 *R;
  1710. {T7 *n=((T7*)new(7));
  1711. rT7make(n,256);
  1712. R=(T0 *)n;}
  1713. oRBC69tmp_string=R;}/*PCO*/
  1714. {T0 *R;
  1715. {T7 *n=((T7*)new(7));
  1716. rT7make(n,256);
  1717. R=(T0 *)n;}
  1718. oRBC261dps=R;}/*PCO*/
  1719. {T0 *R;
  1720. {T7 *n=((T7*)new(7));
  1721. rT7make(n,256);
  1722. R=(T0 *)n;}
  1723. oRBC261dos=R;}/*PCO*/
  1724. {T0 *R;
  1725. R=ma(41,0,4,ms1536,ms1537,ms1538,ms1539);
  1726. oRBC273frozen_general=R;}/*PCO*/
  1727. {T0 *R;
  1728. {T158 *n=((T158*)new(158));
  1729. rT158make(n,1,10);
  1730. R=(T0 *)n;}
  1731. oRBC260collector=R;}/*PCO*/
  1732. {T0 *R;
  1733. {T129 *n=((T129*)new(129));
  1734. rT129make(n,1,5);
  1735. R=(T0 *)n;}
  1736. oRBC136names=R;}/*PCO*/
  1737. {T0 *R;
  1738. {T7 *n=((T7*)new(7));
  1739. rT7make(n,256);
  1740. R=(T0 *)n;}
  1741. oRBC39last_string=R;}/*PCO*/
  1742. {T0 *R;
  1743. {T7 *n=((T7*)new(7));
  1744. rT7make(n,1024);
  1745. R=(T0 *)n;}
  1746. oRBC45explanation=R;}/*PCO*/
  1747. {T0 *R;
  1748. {T7 *n=((T7*)new(7));
  1749. rT7make(n,256);
  1750. R=(T0 *)n;}
  1751. oRBC269ts=R;}/*PCO*/
  1752. {T0 *R;
  1753. R=ma(41,0,6,(T0 *)ms1087,(T0 *)ms1088,(T0 *)ms1089,(T0 *)ms1082,(T0 *)ms1090,(T0 *)ms1091);
  1754. oRBC27system_list=R;}/*PCO*/
  1755. {T0 *R;
  1756. {T7 *n=((T7*)new(7));
  1757. rT7make(n,256);
  1758. R=(T0 *)n;}
  1759. oRBC40tmp_string=R;}/*PCO*/
  1760. {T0 *R;
  1761. {T41 *n=((T41*)new(41));
  1762. rT41make(n,1,12);
  1763. R=(T0 *)n;}
  1764. oRBC40stack_string=R;}/*PCO*/
  1765. {T0 *R;
  1766. {T271 *n=((T271*)new(271));
  1767. rT271make(n,1,12);
  1768. R=(T0 *)n;}
  1769. oRBC40stack_switch=R;}/*PCO*/
  1770. {T0 *R;
  1771. {T272 *n=((T272*)new(272));
  1772. rT272make(n,1,12);
  1773. R=(T0 *)n;}
  1774. oRBC40stack_args=R;}/*PCO*/
  1775. {T0 *R;
  1776. {T81 *n=((T81*)new(81));
  1777. rT81make(n,1,12);
  1778. R=(T0 *)n;}
  1779. oRBC40stack_target=R;}/*PCO*/
  1780. {T0 *R;
  1781. {T265 *n=((T265*)new(265));
  1782. rT265make(n,1,12);
  1783. R=(T0 *)n;}
  1784. oRBC40stack_rf=R;}/*PCO*/
  1785. {T0 *R;
  1786. {T55 *n=((T55*)new(55));
  1787. rT55make(n,1,12);
  1788. R=(T0 *)n;}
  1789. oRBC40stack_code=R;}/*PCO*/
  1790. rT26make(n);
  1791. exit(0);}}
  1792.